home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / LImacSTACK.8_89 / card_4127.txt < prev    next >
Text File  |  1989-08-04  |  8KB  |  397 lines
  1. -- card: 4127 from stack: in.8_89
  2. -- bmap block id: 4903
  3. -- flags: 0000
  4. -- background id: 4490
  5. -- name: LImacSTACK Index
  6. ----- HyperTalk script -----
  7. on openCard
  8.   show cd btn "Who?"
  9.   show cd btn "Help"
  10. end openCArd
  11.  
  12. on closeCard
  13.  
  14. end closeCard
  15.  
  16.  
  17. -- part 1 (button)
  18. -- low flags: 00
  19. -- high flags: A000
  20. -- rect: left=23 top=245 right=262 bottom=153
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 1024
  27. -- line height: 16
  28. -- part name: Application ICONs
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   push cd
  32.   visual barn door close to black
  33.   visual barn door open
  34.   go cd "APPLICATION ICONS"
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: 2000
  42. -- rect: left=185 top=193 right=297 bottom=317
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 1024
  49. -- line height: 16
  50. -- part name: LIMac Info
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   push cd
  54.   visual barn door close to black
  55.   visual barn door open
  56.   go cd "Schedule"
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 3 (button)
  62. -- low flags: 00
  63. -- high flags: A000
  64. -- rect: left=23 top=279 right=296 bottom=153
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 1024
  71. -- line height: 16
  72. -- part name: Virus Advice
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   push cd
  76.   visual barn door close to black
  77.   visual barn door open
  78.   go cd "Comic"
  79. end mouseUp
  80.  
  81.  
  82. -- part 4 (button)
  83. -- low flags: 00
  84. -- high flags: A000
  85. -- rect: left=23 top=211 right=228 bottom=152
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 1024
  92. -- line height: 16
  93. -- part name: HyperCard News
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   push cd
  97.   visual barn door close to black
  98.   visual barn door open
  99.   go cd "HC News"
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 5 (button)
  105. -- low flags: 00
  106. -- high flags: A000
  107. -- rect: left=348 top=245 right=262 bottom=483
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 1024
  114. -- line height: 16
  115. -- part name: Customizing Home
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   push cd
  119.   visual barn door close to black
  120.   visual barn door open
  121.   go cd "Comfy Home"
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 6 (button)
  127. -- low flags: 00
  128. -- high flags: A000
  129. -- rect: left=348 top=279 right=296 bottom=482
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 1024
  136. -- line height: 16
  137. -- part name: Stacks
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   push cd
  141.   visual barn door close to black
  142.   visual barn door open
  143.   go cd "stacks"
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 8 (button)
  149. -- low flags: 00
  150. -- high flags: 2000
  151. -- rect: left=469 top=27 right=48 bottom=497
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 3
  156. -- text size: 9
  157. -- style flags: 256
  158. -- line height: 12
  159. -- part name: New Button
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   visual iris open to white
  163.   visual dissolve
  164.   go stack "HOME"
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 11 (button)
  170. -- low flags: 00
  171. -- high flags: 2000
  172. -- rect: left=259 top=322 right=342 bottom=278
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 1009 / 1009
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 1024
  179. -- line height: 16
  180. -- part name: Show Radio
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   push cd
  184.   visual barn door close to black
  185.   visual barn door open
  186.   go card "Resource Lister"
  187. end mouseUp
  188.  
  189.  
  190. -- part 13 (button)
  191. -- low flags: 00
  192. -- high flags: 2000
  193. -- rect: left=228 top=322 right=342 bottom=247
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 1009 / 1009
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 1024
  200. -- line height: 16
  201. -- part name: Show TV
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   push cd
  205.   visual barn door close to black
  206.   visual barn door open
  207.   go card "Resource Lister"
  208. end mouseUp
  209.  
  210.  
  211. -- part 21 (button)
  212. -- low flags: 00
  213. -- high flags: 2000
  214. -- rect: left=444 top=58 right=93 bottom=494
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 2478 / 2478
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Who?
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   set the visible of cd fld "Credits" to not the visible of cd fld "Credits"
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 18 (button)
  231. -- low flags: 00
  232. -- high flags: 2000
  233. -- rect: left=17 top=121 right=160 bottom=60
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Flash!
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   push cd
  245.   visual zoom open
  246.   go cd "bulletin board"
  247.   play "boing" tempo 300 c5e e g c6 e c g5 e c
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 23 (button)
  253. -- low flags: 00
  254. -- high flags: A000
  255. -- rect: left=348 top=211 right=228 bottom=483
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 1024
  262. -- line height: 16
  263. -- part name: Functions Pt2
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   push cd
  267.   visual barn door close to black
  268.   visual barn door open
  269.   go cd "tips template"
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 22 (field)
  275. -- low flags: 81
  276. -- high flags: 2004
  277. -- rect: left=66 top=120 right=324 bottom=447
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 1
  281. -- font id: 3
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: Credits
  286. ----- HyperTalk script -----
  287. on mouseUp
  288.   hide me
  289. end mouseUp
  290.  
  291.  
  292. -- part 15 (button)
  293. -- low flags: 00
  294. -- high flags: 2000
  295. -- rect: left=445 top=120 right=157 bottom=495
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 1020 / 1020
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: Help
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   push cd
  307.   visual iris open
  308.   go cd "Navigation Help"
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 25 (button)
  314. -- low flags: 00
  315. -- high flags: 2000
  316. -- rect: left=125 top=298 right=320 bottom=377
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: sends mouseUp
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.   send mouseUp to cd btn "LIMac Info"
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 27 (button)
  333. -- low flags: 00
  334. -- high flags: A000
  335. -- rect: left=210 top=30 right=79 bottom=297
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 29107 / 29107
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: LImacSTACK.8/89
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   -- by Tom Wimbish
  347.   put the short name of the target into NAME
  348.   answer "Paste this button into another stack?" with "No" or "Sure!"
  349.   if it is "No" then exit mouseUp
  350.   ask "Paste LImacSTACK's button into which stack?" with "Home"
  351.   if it is empty then exit mouseUp
  352.   put it into DeSt
  353.   put "on mouseUp" & return into myScript
  354.   put "go stack" & quote & NAME & quote & return after myScript
  355.   put "end mouseUp" after myScript
  356.   lock screen
  357.   select the target
  358.   doMenu "Copy Button"
  359.   go stack deSt
  360.   repeat with i = 1 to the number of btns
  361.     if short name of btn i = NAME then
  362.       go back
  363.       choose browse tool
  364.       answer "LImacSTACK's button is already there!"
  365.       hide menuBar
  366.       unlock screen with dissolve
  367.       exit mouseUp
  368.     end if
  369.   end repeat
  370.   doMenu "Paste Button"
  371.   set the rect of btn NAME to 202,30,289,79
  372.   set the showName of btn NAME to true
  373.   choose browse tool
  374.   set cursor to hand
  375.   unlock screen
  376.   get the mouseClick
  377.   answer "Drag button to a comfy spot & click."
  378.   repeat until the mouseClick
  379.     set loc of btn NAME to the mouseLoc
  380.   end repeat
  381.   set the script of button NAME to myScript
  382. end mouseUp
  383.  
  384.  
  385.  
  386. -- part contents for card part 22
  387. ----- text -----
  388. This stack was constructed by
  389. Kevin Moan
  390. HyperCard SIG Leader
  391. Long Island Macintosh User Group
  392.  
  393. Contributors:
  394. Donald Hennessey.
  395.  
  396. ¬© 1989 Kevin Moan
  397. CIS:73210,2732 - GEnie:K.MOAN - MacNET:MOAN